home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / vmed.arc / VMLC.CCC < prev    next >
Encoding:
Text File  |  1985-12-03  |  1.0 KB  |  43 lines
  1. /* VMLC/CCC
  2.  *    virtual memory LC interfacing
  3.  *
  4.  *    Copyright 1983 by Jim Kyle - All Rights Reserved
  5.  *    Licensed for individual non-commercial use only.
  6.  *
  7.  *         created:    November 16, 1983 - Jim Kyle
  8.  *    last changed:    November 23, 1983 - Jim Kyle
  9.  */
  10.  
  11. /*
  12.  *    vm_err() prints a message and returns ERR
  13.  */
  14. vm_err(s)    char *s;
  15. {    fprintf(stderr,"VM ERROR in ");
  16.     fprintf(stderr,"%s!\n",s);
  17.     return (ERR);
  18. }
  19.  
  20. /*
  21.  *    vm_abt() prints a message and aborts via EXIT if
  22.  *    the input code is non-zero, else just returns.
  23.  */
  24. vm_abt(k,s)    int k;    char *s;
  25. {    if (k) {
  26.         fprintf(stderr,"FATAL ");
  27.         exit(vm_err(s));
  28.         }
  29.     /* else just return to caller */
  30. }
  31.  
  32. /*
  33.  *    vm_move() interfaces to LC standard move(); for any
  34.  *    system not providing move(), AL code would be
  35.  *    required as speed is essential (Z80 LDIR type).
  36.  */
  37. vm_move(src,dst,len)    int len;    char *src,*dst;
  38. {    if (len > 0)        /* be sure len > 0 */
  39.         move(src,dst,len);
  40.                         /* else do nothing */
  41. }
  42.  
  43.